source('./src/load_mnist.r')

load_mnist()

d.data <- data.frame(train$x)
d.label <- train$y
t.data <- data.frame(test$x)
t.label <- test$y
